home *** CD-ROM | disk | FTP | other *** search
/ Pascal Super Library / Pascal Super Library (CW International)(1997).bin / LIBRARY / SWDOS12 / ENVIRON.ASM < prev    next >
Assembly Source File  |  1994-07-28  |  1KB  |  42 lines
  1. ;******************************************************************
  2. ;*                           ENVIRON.ASM                          *
  3. ;*          Source file for SoftWeyr enhanced DOS toolbox         *
  4. ;*                           version 1.0                          *
  5. ;*                 Copyright (c) by SoftWeyr,1994                 *
  6. ;******************************************************************
  7. MODEL TPASCAL
  8. LOCALS
  9. .DATA
  10.      EXTRN PrefixSeg :Word
  11.      EXTRN DosError :word
  12.      EXTRN Environment :word
  13. .CODE
  14.        Public AccessParentEnv
  15.        Public GetEnvSize
  16.  
  17. AccessParentEnv Proc Far
  18.           PUSH DS
  19.           MOV DS,PREFIXSEG
  20.           MOV BX,16H
  21.           MOV DS,[BX]
  22.           MOV BX,2cH
  23.           MOV AX,[BX]
  24.           POP DS
  25.           MOV Environment,AX
  26.           RETF
  27.         endp
  28. GetEnvSize PROC FAR
  29. ;Function GetEnvSize
  30.           Mov AX,Environment
  31.           Dec AX
  32.           Push DS
  33.           MOV DS,AX
  34.           MOV BX,3
  35.           MOV AX,[BX]
  36.           Pop ds
  37.           MOV CL,4
  38.           SHL AX,CL
  39.           RETF
  40.          ENDP
  41. END
  42.